home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / mag / experts / vidtest.bas < prev   
Encoding:
BASIC Source File  |  1995-02-02  |  1.0 KB  |  39 lines
  1. DEFINT A-Z
  2.  
  3. ' Definitions for the register structure passed to QINT
  4.  
  5. TYPE Registers
  6.      AX    AS INTEGER
  7.      BX    AS INTEGER
  8.      CX    AS INTEGER
  9.      dx    AS INTEGER
  10.      bp    AS INTEGER
  11.      si    AS INTEGER
  12.      di    AS INTEGER
  13.      ds    AS INTEGER
  14.      es    AS INTEGER
  15.      flags AS INTEGER
  16. END TYPE
  17.  
  18. COMMON SHARED regs AS Registers
  19. DIM SHARED code(55)                   'array to hold QINT code
  20.  
  21. COLOR 15, 1
  22. CLS
  23. DEF SEG = VARSEG(code(0))             ' point to QINT code
  24. BLOAD "QINT.OVL", 0                   ' load QINT code
  25.  
  26. PRINT : PRINT
  27.  
  28. ' Call interrupt $10/0F00 to get current video information
  29.        
  30. regs.AX = &HF00                         ' specify video mode status
  31. DEF SEG = VARSEG(code(0))               ' point to QINT code
  32. CALL absolute(&H10, regs, 0)            ' specify interrupt $10
  33. DEF SEG                                 ' restore the status quo
  34.  
  35. PRINT "Current video mode ="; regs.AX AND 255
  36. PRINT "Current video page ="; regs.BX \ 256
  37. PRINT "Character columns on page ="; regs.AX \ 256
  38.  
  39.